home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / FGL402D.ZIP / EXBAS.ARJ / TEMP / 13-09.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-01-20  |  1.2 KB  |  67 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. REM initialize the video environment
  6.  
  7. FGsetmode 20
  8.  
  9. REM define a processor-dependent panning delay
  10.  
  11. Delay = FGmeasure / 16
  12.  
  13. REM draw a blue box with a white border on page 1
  14.  
  15. FGsetpage 1
  16. FGsetcolor 9
  17. FGfillpage
  18. FGsetcolor 15
  19. FGbox 0, 319, 0, 199
  20. FGmove 160, 100
  21. FGjustify 0, 0
  22. FGprint "This is page 1", 14
  23.  
  24. REM display what we just drew on page 1
  25.  
  26. FGsetvpage 1
  27. FGwaitkey
  28.  
  29. REM draw a red hollow box at the top of page 0 (now invisible)
  30.  
  31. FGsetpage 0
  32. FGsetcolor 12
  33. FGbox 0, 319, 0, 19
  34. FGsetcolor 15
  35. FGmove 160, 10
  36. FGprint "SPLIT SCREEN", 12
  37.  
  38. REM activate the split screen environment, making the first 20 lines  
  39. REM of page 0 appear at the bottom of the screen, and making the first
  40. REM 180 lines of page 1 appear at the top                             
  41.  
  42. FGsplit 180
  43. FGwaitkey
  44.  
  45. REM pan upward in one-line increments, displaying the rest of page 1
  46.  
  47. FGsetpage 1
  48. FOR Y = 0 TO 20
  49.    FGpan 0, Y
  50.    FGstall Delay
  51. NEXT
  52. FGwaitkey
  53.  
  54. REM pan back down in one-line increments to the original position
  55.  
  56. FOR Y = 20 TO 0 STEP -1
  57.    FGpan 0, Y
  58.    FGstall Delay
  59. NEXT
  60. FGwaitkey
  61.  
  62. REM restore 80x25 text mode and exit
  63.  
  64. FGsetmode 3
  65. FGreset
  66. END
  67.